(frame-initialize): When setting frame-initial-frame-alist,

force copying of default-frame-alist.

diff --git a/lisp/frame.el b/lisp/frame.el
index 915f6ff2d404e1672f7ce1705ee68c8032494193..e1adb7ba66e28d372e7642278c0f7a4d1fc861f4 100644 (file)
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -181,7 +181,7 @@ These supersede the values given in `default-frame-alist'."
        (or (delq terminal-frame (minibuffer-frame-list))
            (progn
              (setq frame-initial-frame-alist
-                   (append initial-frame-alist default-frame-alist))
+                   (append initial-frame-alist default-frame-alist nil))
              (or (assq 'horizontal-scroll-bars frame-initial-frame-alist)
                  (setq frame-initial-frame-alist
                        (cons '(horizontal-scroll-bars . t)